home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / class / file.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  5KB  |  226 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 16 "file.d"
  17. #include <sys/types.h> 
  18. #if !defined(vms) && !defined(__MWERKS__) 
  19. #include <sys/stat.h> 
  20. #endif 
  21. #ifdef sparc 
  22. #include <unistd.h> 
  23. #endif 
  24.  
  25. #define    CLASS    File_c
  26. #define    ivType    File_iv_t
  27.  
  28. #include "generics.h"
  29.  
  30. object    File_c;
  31.  
  32.  
  33. #line 34 "file.c"
  34. typedef struct  _File_iv_t  {
  35.     object iName;
  36.     FILE * iFP;
  37. }    File_iv_t;
  38.  
  39.  
  40.  
  41. #line 31 "file.d"
  42. cmeth objrtn File_cm_gNew(object self)
  43. { 
  44.     return gShouldNotImplement(self, "gNew"); 
  45. } 
  46.  
  47. cmeth objrtn File_cm_gOpenFile(object self, char *name, char *mode)
  48. { 
  49.     object obj; 
  50.     ivType *iv; 
  51.     FILE *fp; 
  52.  
  53.     if (IsObj((object) name)) 
  54.         name = gStringValue((object) name); 
  55.     if (IsObj((object) mode)) 
  56.         mode = gStringValue((object) mode); 
  57.     fp = fopen(name, mode); 
  58.     if (!fp) 
  59.         return NULL; 
  60.     obj = oSuper(File_c, gNew, self)(self); 
  61.     iv = ivPtr(obj); 
  62.     iv->iName = gNewWithStr(String, name); 
  63.     iv->iFP = fp; 
  64.     return obj; 
  65. } 
  66.  
  67. static objrtn StreamObject(object self, char *name, FILE *fp)
  68. { 
  69.     object obj; 
  70.     ivType *iv; 
  71.  
  72.     obj = oSuper(File_c, gNew, self)(self); 
  73.     iv = ivPtr(obj); 
  74.     iv->iName = gNewWithStr(String, name); 
  75.     iv->iFP = fp; 
  76.     return obj; 
  77. } 
  78.  
  79. imeth objrtn File_im_gDispose(object self)
  80. { File_iv_t *iv = GetIVs(File, self);
  81.     fclose(iv->iFP); 
  82.     gDispose(iv->iName); 
  83.     oSuper(File_c, gDispose, self)(self); 
  84.     return NULL; 
  85. } 
  86.  
  87. imeth int File_im_gRead(object self, char *buf, unsigned n)
  88. { File_iv_t *iv = GetIVs(File, self);
  89.     return fread(buf, 1, n, iv->iFP); 
  90. } 
  91.  
  92. imeth int File_im_gWrite(object self, char *buf, unsigned n)
  93. { File_iv_t *iv = GetIVs(File, self);
  94.     return fwrite(buf, 1, n, iv->iFP); 
  95. } 
  96.  
  97. imeth char * File_im_gGets(object self, char *buf, int sz)
  98. { File_iv_t *iv = GetIVs(File, self);
  99.  
  100.     return fgets(buf, sz, iv->iFP); 
  101. } 
  102.  
  103. imeth long File_im_gAdvance(object self, long n)
  104. { File_iv_t *iv = GetIVs(File, self);
  105.     int r = fseek(iv->iFP, n, SEEK_CUR); 
  106.     return r ? 0L : n; 
  107. } 
  108.  
  109. imeth long File_im_gRetreat(object self, long n)
  110. { File_iv_t *iv = GetIVs(File, self);
  111.     int r = fseek(iv->iFP, -n, SEEK_CUR); 
  112.     return r ? 0L : n; 
  113. } 
  114.  
  115. imeth long File_im_gSeek(object self, long n)
  116. { File_iv_t *iv = GetIVs(File, self);
  117.     int r = fseek(iv->iFP, n, SEEK_SET); 
  118.     return r ? 0L : n; 
  119. } 
  120.  
  121. imeth long File_im_gPosition(object self)
  122. { File_iv_t *iv = GetIVs(File, self);
  123.  
  124.     return ftell(iv->iFP); 
  125. } 
  126.  
  127. imeth long File_im_gLength(object self)
  128. { File_iv_t *iv = GetIVs(File, self);
  129. #if !defined(vms) && !defined(__MWERKS__) 
  130.         struct stat sb; 
  131.     int r; 
  132.  
  133.     r = fstat(fileno(iv->iFP), &sb); 
  134.     return r ? -1L : sb.st_size; 
  135. #else 
  136.         long sav = ftell(iv->iFP); 
  137.     long len; 
  138.  
  139.     fseek(iv->iFP, 0L, SEEK_END); 
  140.     len = ftell(iv->iFP); 
  141.     fseek(iv->iFP, sav, SEEK_SET); 
  142.     return len; 
  143. #endif 
  144.     } 
  145.  
  146. imeth char * File_im_gName(object self)
  147. { File_iv_t *iv = GetIVs(File, self);
  148.     return gStringValue(iv->iName); 
  149. } 
  150.  
  151. imeth int File_im_gEndOfStream(object self)
  152. { File_iv_t *iv = GetIVs(File, self);
  153.     return feof(iv->iFP); 
  154. } 
  155.  
  156. imeth void * File_im_gPointerValue(object self)
  157. { File_iv_t *iv = GetIVs(File, self);
  158.     return (void *) iv->iFP; 
  159. } 
  160.  
  161. static void class_init(void) 
  162. { 
  163.     String; 
  164.     stdoutStream_o = StreamObject(CLASS, "stdout", stdout); 
  165.     stderrStream_o = StreamObject(CLASS, "stderr", stderr); 
  166.     stdinStream_o = StreamObject(CLASS, "stdin", stdin); 
  167.     traceStream_o = stdoutStream_o; 
  168. } 
  169.  
  170. #line 171 "file.c"
  171.  
  172. objrtn    File_initialize(void)
  173. {
  174.     static  CRITICALSECTION  cs;
  175.     static  int volatile once = 0;
  176.  
  177.     ENTERCRITICALSECTION(_CI_CS_);
  178.     if (!once) {
  179.         INITIALIZECRITICALSECTION(cs);
  180.         once = 1;
  181.     }
  182.     LEAVECRITICALSECTION(_CI_CS_);
  183.  
  184.     ENTERCRITICALSECTION(cs);
  185.  
  186.     if (File_c) {
  187.         LEAVECRITICALSECTION(cs);
  188.         return File_c;
  189.     }
  190.     INHIBIT_THREADER;
  191.     Stream_initialize();
  192.     if (File_c)  {
  193.         ENABLE_THREADER;
  194.         LEAVECRITICALSECTION(cs);
  195.         return File_c;
  196.     }
  197.     File_c = gNewClass(Class, "File", sizeof(File_iv_t), 0, Stream, END);
  198.     cMethodFor(File, gNew, File_cm_gNew);
  199.     cMethodFor(File, gOpenFile, File_cm_gOpenFile);
  200.     iMethodFor(File, gRetreat, File_im_gRetreat);
  201.     iMethodFor(File, gPosition, File_im_gPosition);
  202.     iMethodFor(File, gLength, File_im_gLength);
  203.     iMethodFor(File, gWrite, File_im_gWrite);
  204.     iMethodFor(File, gEndOfStream, File_im_gEndOfStream);
  205.     iMethodFor(File, gSeek, File_im_gSeek);
  206.     iMethodFor(File, gPointerValue, File_im_gPointerValue);
  207.     iMethodFor(File, gAdvance, File_im_gAdvance);
  208.     iMethodFor(File, gDispose, File_im_gDispose);
  209.     iMethodFor(File, gName, File_im_gName);
  210.     iMethodFor(File, gGets, File_im_gGets);
  211.     iMethodFor(File, gGCDispose, File_im_gDispose);
  212.     iMethodFor(File, gDeepDispose, File_im_gDispose);
  213.     iMethodFor(File, gRead, File_im_gRead);
  214.  
  215.     class_init();
  216.  
  217.     ENABLE_THREADER;
  218.  
  219.     LEAVECRITICALSECTION(cs);
  220.  
  221.     return File_c;
  222. }
  223.  
  224.  
  225.  
  226.